home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1034 < prev   
Text File  |  1998-01-08  |  3KB  |  81 lines
  1. userdict/QuarkXPress_ErrorHandler 29 dict dup begin put
  2. /qxperrmsgs[
  3.  (Error Detected from Non-Object)
  4.  (Error Detected from Text-Box)
  5.  (Error Detected from Line)
  6.  (Error Detected from None-Content Box)
  7.  (Error Detected from Picture-Box)
  8.  (Error Detected from Text-Path)
  9.  ]def
  10. /qxperrid 1 string def
  11. /Tstr 20 string def
  12. /Lstr 20 string def
  13. /Bstr 20 string def
  14. /Rstr 20 string def
  15. /mx0str 20 string def
  16. /mx1str 20 string def
  17. /mx2str 20 string def
  18. /mx3str 20 string def
  19. /mx4str 20 string def
  20. /mx5str 20 string def
  21. /qxpstrar[Tstr Lstr Bstr Rstr mx0str mx1str mx2str mx3str mx4str mx5str]def
  22. /qxpobjT 0 def
  23. /qxpobjL 0 def
  24. /qxpobjB 0 def
  25. /qxpobjR 0 def
  26. /qxperrmx matrix def
  27. /qxperrmrklen 20 def
  28. /qxpfntsize 10 def
  29. /qxpstrpos qxpfntsize 2 add neg def
  30. /qxpbndpos qxpfntsize 5 add neg def
  31. /qxperrfont/Courier findfont qxpfntsize scalefont def
  32. /qxperrset{qxperrid 0 3 -1 roll put qxperrmx currentmatrix aload pop
  33.  9 -1 0{qxpstrar exch get exch 1 index cvs length 19 exch put}for}def
  34. /qxperrget{qxpstrar{dup 19 get 0 exch getinterval cvr}forall
  35.  qxperrmx astore pop
  36.  /qxpobjR exch def
  37.  /qxpobjB exch def
  38.  /qxpobjL exch def
  39.  /qxpobjT exch def
  40.  }def
  41. /qxperrshow{
  42.  dup stringwidth pop dup gsave newpath 0 0 moveto
  43.  0 rlineto 0 qxpbndpos rlineto neg 0 rlineto
  44.  closepath 1 setgray eofill grestore gsave newpath
  45.  0 setgray 0 qxpstrpos moveto show grestore 0 qxpbndpos translate
  46.  }def
  47. /qxperrtypes{
  48.  exch 100 string dup 0 3 index putinterval exch
  49.  length 1 index length 1 index sub 3 copy getinterval
  50.  5 -1 roll exch cvs length exch pop add 0 exch getinterval qxperrshow
  51.  }def
  52. /qxperrpagemarks{
  53.  initclip initmatrix gsave newpath clippath flattenpath pathbbox .5 setlinewidth
  54.  0 setgray 2 sub exch 2 sub exch 4 2 roll 2 add exch 2 add exch 4 2 roll
  55.  newpath 3 index exch moveto qxperrmrklen 0 rlineto 1 index moveto 0 qxperrmrklen rlineto
  56.  2 copy moveto 0 qxperrmrklen rlineto moveto qxperrmrklen 0 rlineto stroke grestore
  57. }def
  58. /qxperrfunc{
  59.  QuarkXPress_ErrorHandler begin qxperrpagemarks
  60.  copypage erasepage qxperrpagemarks
  61.  qxperrid 0 get qxperrmsgs 1 index get exch
  62.  0 ne{qxperrget gsave qxperrmx setmatrix 0 setgray 1 setlinewidth newpath
  63.  qxpobjT qxpobjL qxpobjB qxpobjR 4 copy 4 2 roll exch
  64.  moveto 6 -1 roll lineto lineto lineto closepath
  65.  gsave .5 setgray fill grestore stroke grestore}if
  66.  gsave newpath clippath flattenpath pathbbox 3 1 roll
  67.  pop pop translate 20 -20 translate qxperrfont setfont
  68.  qxperrshow(Error: )$error/errorname get qxperrtypes
  69.  (OffendingCommand: )$error/command get qxperrtypes
  70.  grestore end showpage}def
  71. qxperrid 0 0 put errordict/handleerror 2 copy get
  72. [/qxperrfunc load/exec load 4 -1 roll/exec load]cvx put
  73. end
  74. userdict begin
  75. /xppser{
  76. dup 0 eq{pop QuarkXPress_ErrorHandler/qxperrid get 0 0 put}
  77. {QuarkXPress_ErrorHandler begin
  78. qxperrset end}ifelse
  79. }bind def
  80. end
  81.